Notes/Domino 6 and 7 Forum : RE: trapping background image size

Notes/Domino 6 and 7 Forum

RE: trapping background image size

RE: trapping background image size
Posted by ~Kirk Nimweplopoopsi on 20.Nov.03 at 04:36 PM using a Web browser
Category: Domino Designer

Release: 6.0.1 CF2

Platform: All Platforms

I have put this code into the querysave event and it works but only once the document has already been saved. Is there a way to amend it so that the document can't be saved if the background is too big ?

Thanks
Paul

Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim doc As notesdocument
Set doc = uidoc.Document
Dim item As notesitem
If doc.HasItem("$Background") Or doc.HasItem("$BackgroundR5") Then
If doc.HasItem("$Background") Then
Set item = doc.GetFirstItem("$Background")
Msgbox(item.ValueLength)
End If
If doc.HasItem("$BackgroundR5") Then
Set item = doc.GetFirstItem("$BackgroundR5")
Msgbox(item.ValueLength)
End If
End If
End Sub